Public Class Estivativa
    Private intEsforco As Integer
    Private strNovaPremissa As String
    Private strAvaliacaoFinal As String
    Private strObservacao As String
    Private objParticipante As Participante

    Public Sub setEsforco(ByVal Esforco As String)
        intEsforco = Esforco
    End Sub

    Public Function getEsforco() As Integer
        getEsforco = intEsforco
    End Function

    Public Sub setNovaPremissa(ByVal NovaPremissa As String)
        strNovaPremissa = NovaPremissa
    End Sub

    Public Function getNovaPremissa() As String
        getNovaPremissa = strNovaPremissa
    End Function

    Public Sub setAvaliacaoFinal(ByVal AvaliacaoFinal As String)
        strAvaliacaoFinal = AvaliacaoFinal
    End Sub

    Public Function getAvaliacaoFinal() As String
        getAvaliacaoFinal = strAvaliacaoFinal
    End Function

    Public Sub setObservacao(ByVal Observacao As String)
        strObservacao = Observacao
    End Sub

    Public Function getObservacao() As String
        getObservacao = strObservacao
    End Function

    Public Sub setParticipante(ByVal Participante As Participante)
        objParticipante = Participante
    End Sub

    Public Function getParticipante() As Participante
        getParticipante = objParticipante
    End Function

End Class
